Area of a Quadrilateral

Give the quadrilateral fixed side lengths by altering the Perimeter Slider along the x-axis then drag the points Q_1, Q_2, Q_3 and Q_4 on the quadrilateral to see how it's area changes once it's perimeter length has been fixed.  The area of the quadrilateral is represented as 1cm by 1cm blocks for reference.
You may find it useful to have Point Caputuring "Fixed to Grid" when altering side lengths with the Perimeter Slider and then set to "Off" when changing the shape of the quadrilateral.

Q_4

Q_1

Q_2

Q_3

Condition

O = Intersect(xAxis, yAxis)
D = Point(xAxis)
b = Segment(D, O)
A = Point(b)
B = Point(b)
C = Point(b)
Q_1 = (3.25, 4)
c = Circle(Q_1, Segment[O, A])
Q_2 = Point(c)
d = Circle(Q_2, Segment[A, B])
a = Segment(Q_1, Q_2)
Q_3 = Point(d)
e = Circle(Q_1, Segment[C, D])
f_1 = Circle(Q_3, Segment[B, C])
f, Q_4 = Intersect(f_1, e)
g = Segment(Q_1, Q_4)
h = Segment(Q_4, Q_3)
i = Segment(Q_3, Q_2)
Area, q_1, q_2, q_3, q_4 = Polygon(Q_1, Q_2, Q_3, Q_4)
E = (0, -1)
F = (0, -2)
G: (Area, -2)
H: (Area, -1)
poly1, f_2, g_1, h_1, e_1 = Polygon(F, G, H, E)
list1 = Sequence(Segment[(n, -1), (n, -2)], n, 0, floor(Area))
text1: "Area of Quadrilateral = " + Area + " cm²"
Q1Q2 = Distance(Q_1, Q_2)
Q2Q3 = Distance(Q_2, Q_3)
Q3Q4 = Distance(Q_3, Q_4)
Q4Q1 = Distance(Q_4, Q_1)
text2: "Side Lengths = " + Q1Q2 + " cm, " + Q2Q3 + " cm, " + Q3Q4 + " cm and " + Q4Q1 + " cm"
k = Circle(Q_1, Q_2, Q_3)
j = false